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Dear Subscriber, 
I apologize for the long delay in the publishing of 


Vol. 1 No. 8 (yes, No. 7 was the last edition!) I would 


like also to thank you for your patience and the sup- 
port you have given Dave Smith during this period. 
Dave will continue his fine tutorial style of writing 
and helping you learn more about your APPLE as 
contributing editor. I will concentrate on the 
publishing aspect (subscriptions, advertising and 
production) where I have many years of ex- 
perience. 

All subscribers will receive the number of issues 
to which they subscribed. We will publish eight 
issues a year. 

This issue should be very helpful to you, 
especially the Graphics Workshop and String 
Magic. 

I would also like to bring your attention to the 
Personal Computing To Aid The Handicapped 
Competition. This is a program that well deserves 
your attention and if you have developed any ex- 
pertise in this area please contact John Hopkins 
University. 

Those of you who like to write articles, please let 
me know. Contributors are always welcome. It 
would also be helpful to hear from you about what 
areas we should be looking into and what your pro- 
blems and concerns are in the fascinating personal 
computer area. 

I look forward to a long friendship and a mutually 
prosperous venture for all of us. 


Sincerely, 


Joseph L. Rollinson, 
Publisher 


The Apple Shoppe Magazine is published eight times a year for the purpose of 
educating and promoting practical use of Apple Computers. Address all editorial, 
advertising and subscription inquiries to THE APPLE SHOPPE MAGAZINE, P.O. Box 
22026, San Diego, CA 92122. (714) 270-4521 

SUBSCRIPTIONS: $12.00 per year for Continental U.S.A. and $24.00 per year outside 
the U.S. Overseas air mail rates are $36.00 per year U.S. funds. Payment must accom- 
pany subscription request. 

DEALER SALES: THE APPLE SHOPPE MAGAZINE is sold world wide through com- 
puter stores. Prices will be quoted upon request. Phone or write to above address. 
BACK ISSUES: Only photocopy issues are now available at a cost of $4.50 each. 
Write to above address. 

ADVERTISING RATES: Contact above address for current rate card. New product 
information is solicited. 

Entire contents copyright ©1981 by The Apple Shoppe Magazine. All rights re- 
served. Nothing may be printed in whole or part without written permission from the 
publisher. 

Apple is a registered trademark of Apple Computer Inc. 





APPLE SHOPPE CHANGES HANDS! 


For all of our patient (and 
not so patient) subscribers, we 
apologize for che silence these 
last six months. The success of 
the Apple Shoppe has been so 
Overwelming that we have been 
forced to sell the magazine toa 
professional publisher in order 
that it might grow and expand into 
a regular monthly magazine. So 
this is the last issue I will be 
acting as Editor and Publisher. 
With this issue my involvement 
with the Apple Shoppe will come to 
an end, although I will continue 
to submit articles that I hope 
will communicate the Apple secrets 
in a way that each of you can gain 
something new and useful in your 
Apple pursuits. I know you all 
Will be glad to see the magazine 
continue and on a more regular 
basis so please support our new 
publisher and give them time to 
put together a real class act for 
all of us. Laura and I appreciate 
the help and support all o€ you 
have given our "mom _ and pop" 
Operation and hope that support 
will continue with the new 
management. My first assignment as 
"ex-editor" and "ex-publisher" is 
to be a reporter and cover. the 
Sixth West Coast Computer Faire, 
so look forward to the next issue 
for full faire coverage. 


Regards, 
David & Laura Smith 


607 Twilight 
Placentia, Ca. 92670 





REAL TIME CLOCK 


SUPERCLOCK II iS a new real 
time clock for the Apple it 
computer. This compact board plugs 
into any slot of the computer and 
provides time and calendar 
information as well as advanced 
interrupt capabilities. Other 
features include: timing from 
milliseconds to years, control 
firmware in PROM, write protect 
Switch, and 12/24 hour format. The 
SUPERCLOCK II iS easily read from 
BASIC, Applesoft, and PASCAL. Of 
Special interest is an Apple Clock 
emulation mode which allows’ the 
SUPERCLOCK to work with existing 
software written for the Mountain 
Hardware clock. 


Up to four software controlled 
interrupts can be used to allow 
foreground/background programming 
or other ‘real time: activities. 
Pascal users will especially 
appreciate the automatic updating 
of the Filer and each disk that is 
booted. Of course the clock can 


also be used for printing 
headings, data logging, timing 
events, etc. The rechargable 


battery will typically last about 
10> years. 





Taking a syStems approach, the 
company also offers several 
utility programs to _ take full 
advantage of the SUPERCLOCK II. 
For example, Auto-dater is a small 
DOS routine that automatically 
Maintains a date for each file in 
the catalog. The SUPERCLOCK II is 
available from West Side 
Electronics, po box 636, 
Chatsworth, CA.° 9iSiLI. PRICE IS 
$99.95. 


PASCAL ANIMATION PACKAGE 
APPLE has anounced a new 
distribution method for. user 


developed software that is raising 
a lot of controversy. The program 


is called Special Delivery 
software that iS not under normal 
Apple guarantees, but is 


distributed by Apple as a service 
to get good software out in the 
hands of the users without the 
normal review cycle a large 
COrporation must gO. thfough to 
generate manuals etc. 


One program released that 
looks very intriging is the Pascal 
Animation Package. According to 
the catalog, the software package 
allows you to use animation with 
Pascal and high resolution 
graphics without the time 
consuming bother of detailed 
assembly language. The technique 
appears to be the trick to mapping 
text on the text page to the hires 
page as developed by Bob Bishop in 
his ‘classic t.Vv. dancing man 
program. Whether this would 
provide the same speed as Bishop's 
program remains to be seen. The 
main advantage to this program is 
that the source code iS _ provided 
which means the user can gain the 
technical understanding of how to 
Create animation. That fact alone 
makes the $75 price worth it. 
Included in the package are 
routines for using the Apple 
graphics tablet. All on: ae 2e 
the program lives up to it's 
billing, it should be a_e good 


investment. As with all software, 
try to see a demonstration before 
you order. 


Another interesting animation 
package in the same series is the 
aan Animation package. The user 

riendly design of this program 
appears the best I've ever’ seen. 
It comes very close to the ease of 
smalltalk in creating animated 
shapes such as the famous Maxwell. 
Requires the new Pilot author 
System and two disk drives and 
also sells for $75. A must for 
schools or school children whose 
parents have Apples. 


PASCAL 1.1 UPDATE KIT 


Apple has anounced a new 
Pascal version 1.1 update kit for 
$60. This update corrects many 
bugs in the origional package and 
provides two beautifully big 
colorful manuals to replace the 
horrible white elephant manual 
we've all struggled with. Some of 
the features include Chaining 
programs with 80 character strings 
passed between them. Does’ that 
mean no global variables between 
chain segments? 


The ability to create an exec 
file will be most handy. This will 
reduce some of the big’ system 
nonsense that iS required to use 
pascal by allowing requent 
proceedures to be placed in an 
exec. The I/O routines have been 
Speeded up, whatever that means. I 
didn't notice they were. slow. 
Swapping has been increased which 
is definitely a big help for large 
programs. The ‘number of segments 
has been increased to 16, which is 
vital again for breaking up large 
programs. | 


Apple has tried and failed 
again to deal with the upper/lower 
case problem. In this version they 
have upper and lower case option 
as inverse video. Why don't they 
just acknowledge the existance of 
the Dan Paymer board and allow 


Your Data Entry! 


TM 
KeyPad Used for entering nu- 
meric data, it is essential to 
business applications. It features 
an accountants keyboard lay- 
out and permits a relaxed arm 
position. 


Soft Key '” A great programmer's 
aid, this features single key string 
entry and also customized key 
functions. 





io) 


true lower case for those who have 
it which is most everybody? Now 
goes anyone have a copy of the new 
BIOS routines so we can patch 
version 1.1 for the Dan Paymer 
board. and line feed £1x?? 


Apple Fortran has been 
reported to have a number of bugs 
which Apple has acknowledged. Look 
for Apple to release an update for 
Fortran in the near future also. 
The update won't have greater 
percision as that problem is in 
the P-code operating system. But 
SoftTech has announced a new 
P-code system that fixes this 
problem. ; If. Apple, buys: : it. and 
distributes it, we might yet get a 
useful Fortran out of the Pascal 
system. 
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With ABT Apple ° Peripherals 





BarWand"™ Compatible 
with U.P.C., Paperbyte”’, 
Label Code and others. It sells 
Point-of-Sale inventory 
systems, but is also useful in 
libraries, factories and for 
security. Cs 










Available from your local Apple * Dealer 


ADVANCED BUSINESS 
TECHNOLOGY, INC. 


12333 Saratoga Sunnyvale Road, Saratoga, California 95070 408/446-2013 








*Trademark of APPLE COMPUTER, INC. ‘**Trademark of McGRAW- 





Dear Editor, 


Educational Technology, now in 
its 20th year of publication, is 
in the process of expanding 
considerably its monthly coverage 
of the following three fields, due 
to reader requests: 


1. Computers in education and 
training--hardware and software. 


2. Audio-visual communication 
and AV products, including both 
Older and new media. 


3. Training in business and 
industry. 


We are interested in receiving 
from you all appropriate 
information regarding products and 
services your firm is offering in 
these three fields, or in any one 
of these fields. Our readers, in 
all 50 states and in more than _ 80 
nations, are eager to learn of new 
developments in education. 


Lawrence Lipsitz 
Senior Editor 


Educational Technology Publications 


140 Sylvan Ave. 
Englewood Cliffs, N.J. 07632 
Dear Mr. Lipsitz, 


There is a revolution brewing 
on the horizon for education and 


the traditional educational 
Organizations don't even see it 
coming. In response O.. your 


request for information regarding 
Our products, we are trying to 
make that revolution happen as 
soon aS possible. We publish The 
Apple Shoppe, the Journal of Apple 
Computer Applications. I have 
enclosed a sample copy of the 
latest issue. The arrival of the 


personal computer will truly 
re-vamp education in this country 
in the next ten years and we are 
determined to make the know-how 
available to our subscribers so 
that they can help make it happen. 
Our publication is highly oriented 
toward education, not in the 
traditional sense, but as it will 
be in the future. To that end our 
publication tries to help our 
readers get more out of the Apple 
and: ‘learn ‘how: “to “apply ~“it>:to 
Specific applicatons. 


The organization that should 
be right on top of this movement 
towards personal learning with 
home computers is the National 
Council of Teachers of 
Mathematics, but they just bury 
their heads in the sand _ refusing 
to open the eyes of their members 
to the spread of these machines 
among their students, seemingly 
paralyzed over how to handle the 
personal computer in the 
classroom. How can a student get 
excited about taking four weeks to 
learn three different methods of 
solving the quadratic formula when 
in one day he wrote a short BASIC 
program to solve all quadratic 
equations on this Apple computer? 
How can a history student get 
excited about a three week lecture 
series on the civil war when’ each 
night he goes home and 
participates in an involved 
Simulation of the march of General 
Sherman through the south on his 
home computer? How can an art 
appreciation student get excited 
about a dull lecture on water 
colors when at night he goes home 
and "paints" 21 color animations 
using the computer and a graphics 
tablet on his Apple? 


Our publication and the 
educational software we are 
developing iS aimed directly at 
bringing knowledge of these tools 
to our readers and helping develop 
the software tools that will make 
the personal computer a true 
exploration machine for our 
youth. 

David E. Smith 
Contributing Editor 


WITH OUR SPECIAL 
CATALOG FEATURE... 


* ae 


WRITE OR CALL TODAY 
FOR YOUR FREE 
CATALOG (OVER 100 
PAGES - INCLUDES 
PRODUCTS FROM 
EVERY MAJOR 
MANUFACTURER.) 
FOR INNER STELLAR DELIVERY 
(BARRING KLINGONS) ADD $2.00 US/ 
$10.00 FOREIGN FOR SHIPPING AND 
6% TAX IN CALIFORNIA 


@§oppice computer inc. 


OPEN TUES. - SUN. GARDEN PLAZA SHOPPING CENTER 

VISA/ MASTERCHARGE WELCOME 9719 RESEDA BOULEVARD DEPT. IAS 
NORTHRIDGE, CALIFORNIA 91324 
PHONE: (213) 349-0300 








SAVE 25% 


over single copy rate. 


Subscribe to your own issue of THE APPLE 
SHOPPE MAGAZINE at $12.00/year. ($24.00 
outside U.S./$36.00 overseas airmail.) 


Name 


Address 


S| | SR ONC ERR 7 o SRE 
Send to: THE APPLE SHOPPE MAGAZINE 
P.O. Box 22026 
san Diego, CA 92122 








THE WIZARD AND THE PRINCESS 
HI-RES ADVENTURE #2 


Only ON-LINE SYSTEMS could deliver a HI-RES 
ADVENTURE game on such an epic scale. In this adventure vou 
find you must do battle against an evil wizard in order to save the 
life of the princess. To find the wizard and his castle you must 
first cross deserts, oceans, mountains, travel to an island and 
encounter many strange beasts. You will be forced to learn 
magic, navigate at sea and dig for treasure. This game should 
provide months of adventure. 


@ ITUNDREDS OF HI-RES PICTURES (looks great on b/w and 
color televisions) 

@® FULL 21-COLOR!! HI-RES GRAPHICS (cach room a work of 
art) 

@ YOUR GAME MAY BE SAVED FOR LATER CONTINUANCE 

@ RUNS ON BOTH 48K APPLE IT AND APPLE IT PLUS 

e BY FAR THE MOST AMBITIOUS GRAPHIC GAME EVER 
WRITTEN FOR THE APPLE"! 


Hi-Res Adventure *2 is available now. at your local computer 
store and requires a disk drive. To order directly send $32.95 to: 


On-Line Systems : 
36575 Mudge Ranch Road 


Coarsegold, CA 93614 
209-683-6858 


VISA, MST CHG, COD, CHECK ACCEPTED 


Look for Hi-Res Football coming soon 





Recently, some new information 
has come to light concerning the 
Apple's hires graphics. It seems 
that the Apple is capable of not 
only 279 X 191 resolution but of 
559 xX 191 resolution in black and 
white. And this doubly dense 
graphics mode is used in the Apple 
III. What has not been known until 
Bob Bishop published a= short 
article: On.wut ain the. fall. #980 
issue of The Apple Orchard, is 
that thie go9 py “191. black @nd 
white resolution is available for 
the Apple Ii as well. In this 
month's Graphics Workshop we 
present a short program in 
Applesoft that illustrates how to 
use this new hires mode for 
plotting more accurate functions 
than has been available in the 
past. 


HOW WE GET 560 BY 192 POINTS 


How is it that we can double 
the horizontal resolution of the 
Apple screen without hardware 
modifications? The key lies in the 
fact that the various color modes 
cause a shift in the physical 
position of the dot on the’ screen 
that ona black and white monitor 
appear to double the effective 
resolution of the screen. Through 
the use of software, we can use 
this color Snift. oS create 
effectively twice the normal 279 
dot resolution as long aS we use a 
black and white monitor. As Bob 
Bishop points out in his article 
cited above, the Apple really has 
two distinct modes: 140 by 192 
dots in six colors and 560 by 192 
dots in black and white. 
Attempting to combine the two 


modes into a universal "monitor 
independent" mode created the 
artificial 280 by 192 dot mode in 
Six colors with restrictions. If 
color is important, the 140 by 192 
mode is used as in Apple Pascal to 
Give true color lines. Where color 
is not important, the 560 by 192 
mode can give good sharp detail in 
black and white. But unfortunately 
most Apple products have been 
designed for the mythical 280 by 
192 as in the Apple Plot program. 
To further stimulate the use of 
this new 560 by 192 mode, 
Compu-Tutor is designing a_ second 
generation Apple Plot program 
featuring this new resolution and 
offering the same features of the 
currently popular Apple Plot 
program including Visicalc 
interfacing. But this new program 
will also feature a general 
purpose functional plotter to 
allow curve fitting to Visicalc 
data files, something not offered 
with Apple Plot. This program uses 
the techniques discussed in this 
month's workshop and when 
completed will be availalbe retail 
For $50. Let us know if you would 
lik advance information on this 
program as it becomes available. 


HOW HIRES REALLY WORKS 


Many articles have been 
Written attempting to explain how 
the hi-res graphics mode works. 
Some have used look-up tables 
where the computer looks up the 
physical address of the desired 
row in a table of addresses that 
have been previously computed. 
Some use assembly language 
routines to compute the correct 
row address and then the proper 
byte in that row. But none of 
these articles have really 
explained to my satisfaction how 
it works. After much thought and 
Study I attempt yet another 
explanation. The following little 
program fragment really reveals it 
aki muchpdetter: than: a~clot™ of 
prose. 


]LIST 


r Oe fae} 4) 
ay te(c ' 
oe a ¢ eS ’ 


10 FOR J O° TO: 19k 

20 FOR I @ TO: 39 

30 TARGT = BASE + I + ROW 

40  POKE TARGT,255 

30> REAT I 

60 ROW = ROW + 40 

7026 TRS FT 3. ee TE Ca ea 
) / 3) THEN ROW = ROW + 8 

80 NEXT J 


] 


Run thiS program and observe 
carefully what happens. Line by 
line the entire screen will fill 
up but not in sequential order. 
The key is in line 30 where we 
construct the address in memory of 
the next byte to poke. To the base 
address of the start of the hires 
buffer at $4000 (16384), we add I 
bytes in the current row and ROW, 
the number of bytes in each 
previous row. SO we use a double 
loop to increment 40 bytes per row 
from 0 to 39 for all 192 rows from 
0 to 191. At each byte we poke SFF 
(255) so that each bit is turned 
on, producing a short white line. 
This fills up the entire screen. 


This seems Simple enough 
except there is one little 
problem. Multiply 40 bytes per row 
times 192 rows and what do you 
get? You get 7,680 which is little 
less than 8,192 (8K) you expect. 
What happened to the extra bytes? 
Here is where the real mystery is 
about hires graphics. It seems 
that the physical memory is not 
continuously mapped to the display 
Screen. Every 3 rows’ there are 
eight bytes that are NOT mapped to 
the screen. Therefor if you poke 
every byte in the hires buffer 
continuously using 40 bytes per 
row for 192 rows, you won't cover 
the screen! This can be verified 
by re-running the above program 
after deleting line 70, which 
checks each third row and bumps 
the ROW counter by 8 bytes to skip 
over the unused portions of the 
display buffer. What line 70 does 
is a modulous 3. function. xt 


(3412/3 = 2 INT (1342) /3) then: J+41 
is exactly divisable by three and 
hence it's time to bump the row 
counter by 8 more unused bytes. So 
what we have is a whole lot of 
extra register space embedded in 8 
byte chunks’ in the hires display 
buffers. 


260 DOT LOCATIONS 


Now that we understand the row 
mapping in Simple BASIC, lets’ see 
if we can understand the color 
mapping in each byte in the row 
that gives us this extra 
resolution in terms of simple poke 
Statements. In the example program 
below look carefully at the two 
FOR-NEXT loops on I and J. The I 
loop is incrementing across’ the 
row of 40 bytes one byte at a time 
in lines 10 and 20. Then for each 
byte, we execute an inner FOR-NEXT 
loop on J that goes from bit 0 to 
bit 6 in each byte. The key to the 
560 dot locations is in 
selectively turning on and off the 
8th color bit as each of the 6 
bits QO to 6 is turned off or on. 
Each bit has the color bit first 
turned off and then turned on as 
Shown in lines 55 (off) and _ 60 
(on). The result is that each 
hires bit 0 to 6 is really plotted 
in two postions on the screen 
depending on the state of the high 
order bit of that byte. To prove 
that there are really 560 distinct 
dot positions, run this program 
and watch the dot move. slowly 
across the screen while a counter 
counts 560 postions. Again the key 
is lines 35 to 80 that decide when 
to turn the hires bit on and off 
while turning on each succeeding 
hires bit in the byte. 


Once we figure out which bit 
to turn on to get the proper dot 
on the screen, we need some way to 
Curn that bit .on correctly. The 
Subroutine in lines 100 to 160 in 
example~ 2 below set or clear the 
proper bits so aS to make or erase 
a {;det - one the screen without 
disturbing any of the other dots. 
This subroutine in turn calls a 


short machine language routine 
also shown below that turns’ the 
bits on or off depending on the 
variable Z. Hex location 300 is 
the start of the set bit routine, 
while hex 30A is the start of the 
Clear bit routine. We pass the bit 
position from variable ¥! <to 
location $325 and the byte from 
variable xX to location $324. The 
desired bit in the desired byte is 
set. or cleared by the machine 
language routine. using ORA 
instruction to set it, and the AND 
instruction to clear it. 


Finally a short stall routine 
allows us to carefully watch our 
dot move across the screen so we 
really believe there is 560 
distinct dot positions. You should 
see a small dot move slowly while 
the counter counts each position 
rrom'0: to S59. 


]LIST 


5 BASE = 8192: HGR : HOME 

LO. FOR:<I.=.0: TO: 39 

20 TARGT = BASE + I 

25 FOR J = 0 TO 6 

30 X = PEEK (TARGT) 

35 ¥ = J:Z =: 1s. GOSUB 100 

AOR eon OO UBER ee me ub eo 

| 0: GOSUB 100 

45 . IF (J: =. 0 AND ‘I<: >< 0) “THEN 
Y = 6:Z = O:W = X:X = PEEK 
(TARGT - 1); GOSUB 100: POKE 

, TARGT - 1,X:X = W 

50° Y=: 7e8..= 0: GOSUB. 100 

55 POKE TARGT,X: GOSUB 200 


5G OTS CP. + Le VAS (22) 3 BAB: & 

i)? PRINT.“ “es HTAB (1 
| )}: PRINT CT 

60 Y = 7:Z = 1: GOSUB 100 

65 POKE TARGT,X: GOSUB 200 

66 CT. = CT + +1::VTAB (22): HTAB ( 
1): PRINT " ees APPAR C2 
): PRINT CT 

80 NEXT J 

S55 NERD st 

90 PRINT CHRS (7) 

95 END 

LOG: “REM: BET: SUBROUTINE «(X45 ¥; 2) 


105 REM X=CONTENTS OF TARGET BY 
TE 

LEO. REM: Y=BIT: POSIPERION 0-7 “Reo 

115 REM Z=1 TO SET,0O TO CLEAR 


120 POKE 804,X 
130 POKE 805,2 


140 IF Z 
290. EE 
155 X = 


210 FOR K 


215 RETURN 


] 


JCALL-151 
*300L 
0300- AD 
0303- OD 
0306- 8D 
0309- 60 
03 0A- 08 
030B- 48 
030C- 18 
030D- AY 
030F- ED 
O22 8D 
O315~ AD 
0318- 2D 
031B- 8D 
O3LE- 68 
O31F- 28 
0320- 60 
U321- 00 
03 22> 00 
0323 00 
0324- 00 


* 


1 TO 100: NEXT 


24 
20 
24 


00 
be 
a2 
24 
25 
24 


eee 
1 THEN CALL 768 
0 THEN CALL 778 
PEEK (804) 
160 RETURN © 
200 REM STALL ROUTINE 


03 
03 
03 


03 
03 
03 
03 
03 


BRK 
BRK 


$0324 
$0325 
$0324 


#500 

$0325 
$0325 
$6324 
$0325 
$0324 


NOW THE FINAL PLOT PROGRAM 


Now 
hires, 


to 


that we 


BASIC 


and 


plot single line 


this 


how it works. 


In the section of 
up the parameters used in 
The 


we set 
the plotting of our function. 
function itself is in line 2050 in 
f(x)". Change this 


the format "y 


line 


have 


our 


new 560 dot mode. 


Fach function must be 


valued 
real variable. 
limits 
by A and B. 


of 


real 


The 


code 


mastered 
we can return our attention 
plotting 
application. The program here will 
functions 


to plot different functions. 
Single 
function of a single 
physical 
the screen are defined 
Typing return at 


using 
Let's see 


below 


plot 


any 


input causes default values to be 
used so the first time the program 
is run you can simply default 
everything to get a feel for how 
the program operates. The radian 
option is not used in this 
version. Both the minimum and 
maximum x and y values may be 
Specified or they may default to 
insure the function will fit on 
the screen. This initial setting 
up fills lines 10 to 85 as shown 
below. 


PLOT PROGRAM - INIT SECTION 


10 TEXT : HOME : VTAB 3: HTAB 10 
: INVERSE : PRINT "“SUPER-HIR 
ES FUNCTION PLOTTER": NORMAL 


20 .VTAB 5:M0 = (191 / 559):S0 = 
191 / 2:TRIG = 0 

30 INVERSE : PRINT "PLOT LIMITS: 
": NORMAL : PRINT 

35 INPUT “START AND END VALUE (- 
955-70: 9545) 2?" 2A$,BS 

36 .<fP AS. 3°"*" OR’ BS 'e** THEN “A= 
- 100:B = 100: GOTO 40 

37 A = VAL (A$):B = VAL (BS) 

40 PRINT : INVERSE : PRINT "TRIG 
OMETRIC:": NORMAL : PRINT 

45 INPUT "CONVERT TO RADIANS (Y 
OR RET) ?":KEYS 

50. IF KEYS = "YY" THEN A =-A * 3. 
b4159:-/7 -180:B°* Bet OF TTA FSO 
80:TRIG = l 

60 PRINT : INVERSE : PRINT "SCAL 
ING:": NORMAL : PRINT 

65 INPUT “"X-MIN, X-MAX?";XNS$,XMS 


70 IF XNS = "" OR XMS = "" THEN 
XN = - 100:XM = 100: GOTO 7 
5 

73 XN = VAL (XN$):XM = VAL (XMS 


) 
75°X = XN: -GOSUB’ '2050:YO = Y:X = 
XM: GOSUB::2050:¥1 .= Y 
77 PRINT :. PRINT “Y-MIN= ";YO0;" 
Y-MAX= "s:Yl 
80 PRINT : INPUT "Y-HIN, Y-MAX O 
R RET?":YNS,YMS$ 


82: IF YNS$ = "" OR YMS: = "" THEN 
YN = YO:YM = Yl: GOTO 85 
83 YN = VAL (YN$):YM = VAL (YMS 


) 
85 REM CONTINUE 


] 





Next comes the main portion of 
the program. Here we have the 
option of clearing the screen for 
a new plot, or plotting on top of 
whatever is there. This is useful 
for plotting a family of 
hyperbolas for example, to see how 
a change in one parameter affects 
the overall plot of the function. 
If you wish to save your plots, 
page 2 of the hires buffer is used 
so you should issue a "BSAVE" 
command for the second hires 
buffer located from hex 4000 to 
hex 5FFF. 


] 
JLIST 86,199 


100 REM 
BEGIN MAIN; 


105 . PRINT sf INVERSE:::s PRINT "SIN 


GLE PLOT OR FAMILY:": NORMAL 
: PRINT 

110 INPUT "SAME DISPLAY (Y OR RE 
T) 2.8 KEYS 

120 SAME = O: IF KEYS = "Y" THEN 
SAME = l 


130 IF SAME = 0 THEN HGR2 

40° “PORE =" 76 306,020 PORE 165 
GeeU: PORE = 16299,02 PORE 
~ i Oeatal 





The actual plotting begins in 
the next section. A counter I is 
used to count all 560 possible 
horizontal locations accross’ the 
screen. A flag called NOGO is used 
to tell us if a dot is required at 
each horizontal location. If so we 
call our super hires subroutine at 


line 1000 to place the dot there. 
Otherwise we move to the next 
possible location with a NEXT I 


command in line 295 until the plot 
is finished. Some scaling is 
required on x and y to offset the 
Fact tnat 560. by: 192:.. does: not 
produce a square array on the 
monitor and to offset the origin 
from the upper left hand corner to 
the middle of the screen as would 
normally be expected in a 
Cartesian x-y coordinate system. 
This is done in lines 220 and 240 
using MO and SOQ .ta...scale the 
graph. Note that the super hires 
Subroutrne requires the x and y 
coordinates to be integers. To do 


this we pass x and y as x$% and y% 
before calling line 1000. 


] 
JLIST 200,999 
200 REM 
560 POINT MODE 


210... FOR J. =.0.:TO 559 

S20. ks = MOF) CT eS SS8 2 2) 

230 GOSUB 2000: REM FUNCTION 

240 Y= G0: mc ¥ 

290 IF NOGO = O THEN X% = I:Y3 = 
Y: GOSUB 1000: REM PLOT 

295°°\NEXT 1 

299° VTAB 22: ‘PRINT ""; 3° END 


SUPER HIRES SUBROUTINE 


The heart of the program is 
the super hires plot subroutine. 
This subroutine takes an x% and y% 
in the range of 0 to 559 or OQ to 
191 and plots’ a black and white 
dot at the proper location. This 
is done by using the HCOLOR 
function to shift the dot 
depending on the position. It is 
this shifting that gives us the 
extra resolution. This is the same 
as setting the high order color 
bit in each byte. The color factor 
divides each baSe byte into four 
color sections, each providing 3.5 
dots. Hence each base byte yields 
14 ‘distinct dots. Since there are 
40 bytes to a line, this gives 40 
times 14 or 560 dots per row. Now 
how can their be 3.5 dots per 
section you ask? Recall that in 
the 280 by 191 mode that one bit 
from the odd bytes matches up with 
one bit from the adjacent even 
byte to produce one dot of color, 
so that in the 280 by 191 mode we 
have 14 bits out of two bytes to 
produce 7 distinct dots on the 
screen, or 3.5 dots per hires byte 
in that mode. Now by shifting the 
color bit on. every other 
combination, we double those 7 
distinct dots to 14 distinct dots 
per hires byte. Recall that the 


Applesoft BASIC 
280 mode and hence when using 
HPLOT as shown below, we have to 
trick Applesoft into the 560 mode 
without him knowing about it! 


is set up in the 


1000 REM 

SUPER-HIRES PLOT SUB. 
1005. REM X% FROM: 0:'TO 559 
1006 REM Y% FROM O TO 191 
1030 XX& = X% / 4:M% = X% -— 4 * X 

XS 

1040 IF M% = 0 THEN HCOLOR= 2 
1050 IF M% = 1 THEN. HCOLOR= 6 
1060 IF M% = 2 THEN MHCOLOR= 1 
1070 IF Mt: = 3 “THEN” HCODOR= 5 


1080 HPLOT X% / 2,Y% 
1090 RETURN : REM 


2000 REM 
DEFINE FUNCTION & LIMI 
TS 


2005 NOGO = 0 


2010 IF X < A OR X > B THEN NOGO 
= 1: RETURN 
2050 Y = X 


9060. TP x <e S "YOR YY By BRIS 


(191 / 2) THEN NOGO = 1: RETURN 


2090 RETURN 


We hope you have enjoyed this 
look: into ~«hires ‘graphics. “This 
information is not generally Known 
to our knowledge. Still to come is 
translating what we have learned 
into machine language SO we can 
get speed into our routines, and 
learning mapping schemes that 
produce the effect of 21 colors 
instead of 6. So we have lots’ to 
learn and hope you'll stay with us 
in the GRAPHICS WORKSHOP. 


BACK ISSUES 


Back issues are available but only in 
photocopy, since all original publications 


have been sold out. Each edition is $4.50 and 
can be ordered from THE APPLE SHOPPE 
MAGAZINE, P.O. Box 22026, San Diego, CA 
92122. 





1] 








I Vw S a” wy A VN VO 
fista. Music Machine 9 é 
VAR LININSIRN I IIIS 
Apple Users Compare! Save Dollars! Save Space! 


eo ~< 
OUR Ps 


® 9 Voices per Board 


@® Uses Only One Slot in 
Your Apple 


® $129.95 Total Price 
For 9 Voices (less 
than $15.00 per voice) 

®@ Single Board Includes 
Stereo Outputs 


ia “\ Sf »~ oe 


4) Woices+ Stereo+*1292, 


The Vista Music Machine 9”™ utilizes new state-of-the-art 
LSI Sound Generation devices. Price includes demonstration 
diskette and a conversion program allowing the Music 
Machine to be used with ALF™ music programs (not supplied). 
Installation instructions are also included. The Music 
Machine 9™ is the lowest priced music board on the market 
and it is completely assembled and tested, ready to plug into 
your Apple. Available from stock. 


Vista ursenre septa Company 
ir-10h ie =(0) col at-1 cols) ormtes- lal t-W-\al- a Ora nc a4 


WA) eclolen Cle y-a6) 





THEIRS! 


@ 3 Voices per Board 
(some others have only 
1 voice per board) 
@ Consumes 3 Slots for 9 Voices 
®@ $269.00 List Price. Requires 
$807.00 for Complete System 
@ One Board Produces Only One 
Monophonic Channel 


hy hr 


Dealer inquiries invited. 


or: 1] Me We) | ty ta -y-) 
800-854-8017 
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MYSTERY HOUSE 
HI-RES ADVENTURE *1 


Your APPLE computer becomes your cyes and ears as you enter 
a spooky old mansion in search of treasure. You are in complete 
control as you open cabinets, smash walls etc. Danger is ever 
present as you find your co-adventurers being murdered one by 
one. Can you find the killer before the killer finds you? 

@ OVER A HUNDRED HI-RES PICTURES | 

@ YOUR GAME MAY BE SAVED FOR LATER CONTINUANCE 
® RUNS ON BOTH 48K APPLE Il AND APPLE II PLUS - 


_ Hi-Res Adventure *1 is available now at your local computer 


store and requires a disk drive. To order directly send $24.95 to: 
On-Line Systems 
36575 Mudge Ranch Road 
Coarsegold, CA 93614 
209-683-6858 
VISA, MST CHG, COD, CHECK ACCEPTED 
Look for Hi-Res Football coming soon 


PERSONAL COMPUTING 


FD AID THE | 
dl A. 
& HANDICAPPED A) 


THe JORIS HOPKINS 
FIRST WNATIONAL SEARCH 


HEARING & LANGUAGE * MENTAL RETARDATION * LEARNING DISABILITIES * VISION 
NEUROMUSCULAR/NEUROLOGICAL DISORDERS * LIMITATIONS OF MOVEMENT 


‘$10,000 GRAND PRIZE 


More than 100 other Awards: 


e Cash e Personal e Certificates of 
Prizes Computers Achievement 


*STUDENTS eAMATEURS 
PROFESSIONALS 


® Challenge Your Creativity 








wwe) 








® Put Your Innovative Ideas to Work 


® Help Millions of Handicapped Persons Live 
More Productive and Rewarding Lives 





This 1S a-national competition To obtain additional information 
for ideas, devices, methods, and including a descriptive flyer 
computer programs to help handi- and contest application, write 
Capped people overcome difficul- to: 

ties in learning, working, and 

successfully adapting to home PERSONAL COMPUTING TO AID THE HANDICAPPED 

and community settings. a 


LAUREL, MARYLAND 20810 


This program is made possible by 


grants from THE NATIONAL SCIENCE Contestants will have until June 
FOUNDATION and RADIO SHACK, a 30, 1981 to prepare and submit 
division of TANDY CORPORATION. their entries. ‘ 
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Have you ever made the mistake 
of typing a control character into 
the name of a program or file you 
were saving and then found you had 
no way to retrieve that program or 
file? + d£iw 80% then you will 
appreciate this utility that 
prints any embedded control 
characters in the catalog so that 
the name of the file can be 


Specified properly. Unless this is 


done, there is no way to retrieve 
that information since the DOS 
will continually report "file not 


found" even though it appears you 
are typing the name of the file 
correctly. The reason for this is 
that control characters are not 
printed, but they are tested when 
checking for the name of the file. 
If you have a program you cannot 
seem to load even though you’ type 
what appears to be the correct 
name of the program, try running 
this utility and see if the name 
of the file doesn't contain some 
hidden control characters. 


There are several important 
concepts contained in this program 
and all of them are diScussed in 
the June 1979 issue of 
CALL-A.P.P.L.E. which you may wish 
to refer to on pages 5 -9. That 
issue contained a number of short 
programs dealing with the problem 
of using the monitor commands from 


a BASIC program Or linking 
assembly language programs to 
BASIC. In this utility we have 
combined several of these 
techniques along with ae useful 
assembly language routine for 
identifying control characters. 
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routine is 
the BASIC 
and poked 


The assembly language 
Stored in strings in 
program and then’ read 


into memory in a loop. This has 
the advantage over pokes in that 
the hex values can _ be seen and 
edited much easier rather’ than 
trying to decipher what a long 
list of poke statements mean. : 

Another feature of this 
utility 1s that the CATALOG 


command is issued directly as a 
monitor command from the assembly 
language program. If you _ think 
about it, how does one issue a 
catalog command from assembly 
language, Or any monitor command 
for that matter? You can quickly 
see that while getting a catalog 
listing from BASIC is easy, doing 
the same thing from an assembly 
language routine is not. And_ so 
this routine also allows a method 
of executing monitor commands in a 
very efficient manner. 


PROGRAM EXECUTION 


To execute this program, 
Simply type it in and type run. 
The program will then print out a 


catalog showing any control 
characters as "A" for control-A 
etc. In this way any embedded 
control characters are easily 
identified. After the program 


executes, the DOS hooks are 
restored and this feature is 
eliminated. To keep this feature 
in effect after the program runs, 
delete line 2030, or Simply run 
the program twice in succession. 
If this is done however, it will 
be necessary to re-boot to restore 
the system. Also, Since all 
control characters are trapped in 


this manner, any disk commands in 
a program will not execute with 
this feature in effect, Since DOS 


commands must be preceeded by a 
control-D.. Character... In. order, to 
re-run the program after using it 


once, it must be re-loaded. This 
is the only way to enable the 
feature without an error, since 


running the program twice in 
succession causes a DOS error that 


leaves the feature in effect. Thus In the next line we complete 


to execute the program without the above operation by poking the 
leaving the trapping feature above string into the input buffer 
permanently in effect, some DOS at hex 200 and then telling the 
command such as a LOAD must be monitor that it has input by doing 
executed between RUN'S to re-set a Call: te. -i44, This passes 
DOS pointers correctly. If. anyone control to the monitor, which will 
can identify why this is necessary read the input buffer and execute 
and the appropriate DOS hook that the string of commands just as if 
is not being reset after the we had typed tet from the 
program executes, please write to keyboard. 
The Apple Shoppe and we will print 
that information. > 
List i30 
HOW IT WORKS 
130 FOR I=l TO LEN(Y$): POKE 511 
As can be seen in lines 0 to +I, ASC(Y$(I)): NEXT I: POKE 
120, ‘the £irst part of the program 72,0: CALL -144 


sets up the assembly language 
routine as a series of string 


Statements which are concatenated The next Section repeats’ the 
together to form a single string above scenario only this time we 
Y$ preceeded by "300: a ee execute a catalog command from the 
erfect of doing this Ts: tO mimic monitor by placing in the monitor 
the monitor command of typing in a input buffer the address of the 
list of hex numbers and having the DOS catalog command. This allows 
monitor store those values at each automatic execution of the catalog 
Succeeding memory location from command after we have reset the 
hex 300 on up.. The end of the DOS output BOOKS Bho point. to . our 
String is "N E88AG" which enables | assembly language routine at 
normal mode and gives the monitor location 300. There the output 
"go" command to E88A which enables Characters will be checked for 
a running return) to she current control characters and if found, 
BASIC. This allows a way of the <=" “symbol (willbe. output 
automatically returning to BASIC along with the normal character 
from the monitor without keyboard represented by the control 
intervention. Character. This allows 
identification of the embedded 
LIST 0,120 control character. 
LIST 1500,3000 
O DIM Y$(255) ,X1$(255) ,X2$(255 1500 Y$="" 
) ,X3$ (255) ,X4$ (255) ,X5$ (255 2000 peti (-25340):B= PEEK (- 
| 
1 X1S="48 29 7F C9 20 90 04 68 '" 2010 ‘POKE ~—25340,0: POKE ~-25339, 
3: REM DOS PRINT ROUTINE ADDRES 
2 X2$="4C BD 9E C9 OD FO F8 C9 " S 
2015 Y$="A56EG N E88AG" 
a Agee 1 FO Fa Co O08 FO FE Co" 2017 FOR I=1 ‘TO LEN(YS$): ‘POKE 5121 
+1) *ASCUYS CE) ) s. NEXT <I 
4 X4S="1B FO EC AS DE 20 FO FD " 2018 \POKE 72,0: ‘REM’: RESET ‘STATUS REG 
5 X5$="68 69 40 4C BD 9E 00" 2020 CALL -144: REM FF70 ZMODE 
100 y$="300: ":Y$( LEN(Y$) +1) =x1$ 2030 POKE -25340,A: POKE -25339, 
:¥$( LEN(Y$) +1) =X2$:Y$( LEN ( B 
Y$) +1) =X3$ 2035 REM 
110 Y$( LEN(YS$)+1)=xX4$:Y$( LEN ( A56E IS CATALOG FUNCTION IN 
| Y¥$) +1) =x5$ DOS 3.2 WHILE E88A IS INTEGER B 
120 Y$( LEN(Y$)+1)="_N E88AG" ASIC RUNNING RETURN. FOR APPLESO 


FT: USE D823. 
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> 


of our monitor 


depending on 


2036 REM 


SEE CALL-~APPLE PAGE 6 JUNE 
LOTS FOR REFERENCE. 


2040 END 


This completes the program. 
Note that the DOS output hooks are 
restored in line 2030 so that the 
printing of control characters is 
eliminated after the program runs. 


Remember not to try and run the 
program twice in succession 
without re-loading it first to 
restore all the DOS hooks, or this 
feature will remain in effect 


until the system is re-booted. 


Looking in the Apple reference 
manual on page 169 will identify 
the location FF70 which is a call 
-144, This monitor location 
resets the monitor mode and falls 
into the routine that scans the 
input buffer for some more monitor 
commands. Since we stuffed in the 
BASIC return address onto the end 
command list, we 
are assured of returning to BASIC 
after this call is made. This 
return to BASIC location is unique 
to integer basic and if using 
applesoft, must be replaced by 
D823 instead. Since the assembly 
languge routine is a bit hard to 
decipher within the BASIC listing, 
it is reproduced here. As can be 
seen, it 1S Simply ae series of 
compare statements that check for 
important control characters. If 
not. a.control: character, “the A 
register is pulled off the stack 
and a return is made by doing a 
Jump to S$9EBD in DOS. This 
location is supposed to call the 
correct print routine within DOS 
the mode. Since we 
have replaced the current print 
address with hex 300, all DOS 
printing to the screen will pass 
first through locations 300 where 
we can check for control 
Characters. Then it resumes its 
normal DOS output. For more 
information on the internals of 
DOS, see the DOS 3.2 memory map in 
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the October 1979 issue of MICRO 
Magazine and the August 1979 issue 
of MICRO magazine. The September 
issue of Applesauce, 1979 also has 
some mapping information for DOS 
3.2. It is not known yet how much 
compatability iS present between 
DOS’. 3.2.10 and DOS: 313. Perhaps 
this: canbe" the. Subsect ob a 
future article. 


* 


300L 
0300- 48 PHA 
0301- 29 FF AND #$7F 
0303- C9 20 CMP #$20 
0305- 90 04 BCC $030B 
0307- 68 PLA 
0308- 4C BD 9E JMP S9EBD 
030B- C9 OD CMP #$0D 
030D- FO F8 BEQ $0307 
O30F- C915 CMP #$15 
0311- FO F4 BEQ $0307 
O3 13 C9 08 CMP #$08 
0315- FO FO BEQ $0307 
0317- C9 1B CMP #$1B 
0319- FO EC BEQ $0307 
O03 1B- AY DE LDA # SDE 
O3 ID~ 20 FO FD JSR SFDFO 
0320- 68 PLA 
0321- 69 40 ADC # $40 
0323- 4C BD 9E JMP $9EBD 
0326- 00 BRK 
* 

For questions regarding this 


column please write the Utilities 
Workshop care of The Apple Shoppe 
magazine. We would welcome = any 
article suggestions or information 
you may have found useful in 
dealing with the internals of your 
Apple computer. 


GOLDCOAST COMPUTER RENTAL CLUB 
10,00 YEARLY MEMBERSHIP FEE GETS 
YOU; ACCESS TO OVER (3000 PROGRAMS) 
PROFESSIONAL TOP QUALITY PROGRAMS 
TO RENT. EACH NEW MEMBER RECEIVES 
A TOP QUALITY DISKETTE FULL OF 
SELECTED PROGRAMS worTH($50,00?), 
Box 14? rouTe#l BREMEN, KY 42325 


BY 


KIRK CHASE 
PLACENTIA, CA. 


HOUSE OF USHER 


A chance for $100, a mystery 
to solve and monsters to battle is 
what you get when you play "House 
of Usher" by John and Patty Bell 
from Crystal Computer. The reward 
iS Céeal: if you're. the first to 
solve the mystery. This, of course 
is not very easy to accomplish. In 
fact, with all the creepy, crawly 
Creatures, you may wonder if you 
will be able to Survive the 
night! 


This program is guaranteed to 
provide you with excitement as you 
go from room to room to room...to 
room. Pitfalls are placed in 
unlikely area. The game iS made 
even more challenging by the fact 
you must keep up your stamina to 
avoid collapsing to your death 
from exhaustion. "House of Usher" 
is filled with objects that might 
aid or detour you away from 
solving your mystery. 


The game is Set up to be won 
in one of three ways. For the 
traveler who might have just 
happened upon the house, 
increasing your wealth iS one way 
to win. For the adventurer, you 
may win by battlingthe multitudes 
of beasties. For the sleuth, = and 
the way to win $100, is to solve 
the mystery. Any way you try is 
bound to be a challenge. 


fact, a Fourth way to win 
may be added. And that is to 
Survive your tour. The monsters 


around the house 
what they do. 


that are found 
are very good at 


With a few tricks, though, they 
only become a challenge to 
overcome. AlSo your stamina will 
decrease to zero before too long, 
and the quest for tood soon 
becomes frantic. It 1S very easy 


to die and not so easy to live in 
the -"Hovse of .- Usher”; “one of a 
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family of adventure games from 
Crystal Computer. See it today at 
your local Computer Store. be ah — 
well worth the money! 


THE WIZARD AND THE PRINCESS 


Battle 
multitude of 


your way passed a 

obstacles to the 
castle of an evil wizard. Your 
quest is to rescue a beautiful 
princess from the clutches of this 
evil wizard. This is the theme of 
Hi-Res Adventure #2 by Ken = and 
Roberta Williams of On-Line 
Systems. Ken and Roberta have 
given a wonderful new meaning to 
adventure games with this, their 
latest new adventure disk. 


ADVENTURE......... 
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With the help of 
high-resolution graphics, you tour 
many different terrains on your 
quest. You start off with a pocket 
Knife, a loaf of bread, a flask of 
water anda blanket. But you soon 
discover this iS not enough to 
make your trek through the 
beautiful graphics. For this 
collection is little in the way to 


save the princess against a 
wizard. 

This adventure is extremely 
Cchallengin, and it will require 
tremendous brain work and 
imagination to make any progress. 


This program is difficult and _ so 
you are encouraged to save the 
game at certain points of progress 
on the. floppy disk, to return 
later, more refreshed. Like many 
adventures, it is easy to die and 


not very easy to stay alive. 
Saving the game along the way 
saves you time in bringing 


yourself up to date to where you 
were in the adventure. 


Running "The Wizard and the 
Princess" is pretty straight 
forward as it has only two mazes. 
The program also has it's share of 
exotic creatures and situations. 
Snakes stop your progress in the 
beginning. A_ giant, lion and 
creeky bridge are more obstacles 
in your path.«t£ you come: toi .3a 
point where you are stopped for an 


unusually long time with no ideas 
of how to surpass the obstical, 
check with your local computer 


store or call On-Line Systems’ for 
a hint. Ken will be glad to ease 
your suffering: 


"The Wizard and the Princess" 
is a wonderful software disk full 
of high resolution graphics. You 
become an adventurer with the 
computer passing great obstacles 
on your way to save the princess. 
The program requires days or even 
weeks to complete, and all-in-all, 
it 1S a great game from Ken 
Williams and On-Line Systems. See 
it today at your favorite Computer 
Store. 
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This 


month's 
features a 
troubling Apple 
that Apple 
copied and backed up. This program 
can solve that problem if the user 


Pascal Workshop 
cure for a very 
got-cha. Namely 
FORTRAN cannot be 


So chooses since it copies 16 
Sector pascal disks. We appreciate 
all the readers’ who Submitted 
solutions to this problem and we 
are sorry we cannot acknowledge 
a@li\of) you.“ he santhor of this 
particular solution is Allen MW. 
Todd from Albany Oregon and we 
appreciate his contribution. 


Copy 16 1S a program written 
in U.C.S.D. Pascal and runs on the 
Apple II with either Pascal or 
Fortran operating systems. Ra 
enables the user to copy entire 16 
sector diskettes in either of two 
modes. The first mode is the same 
as that used by the Pascal file 
Management system (Filer). The 
copy is made by reading 56 blocks 
(28K) from the source diskette 
into a buffer, then writing this 
buffer to the destination 
diskette. This process is repeated 
five times to copy the entire 280 
blocks. If diskettes with other 
than 280 blocks are to be copied, 
a few constants in the source code 
may be changed and the program 
re-compiled. 


The second mode of copying is 
Slower than the first, but allows 
for error checking on each block. 
In the error checking mode, all 
bad blocks will not be transfered 
but rather will be replaced on the 
destination diskette by blocks of 
zeros. Copy: 16) will: “copy «ald 
Standard Pascal, Fortran or DOS 
3.3 diskettes currently available 
for the Apple II. A minimum of two 
disk drives are required. 


LEE EEE EEE EEE EE EE EE EE EEE HE EEE HE HEE EHH EEE EEE EEE EE EERE EERE RHE KEE 


2/il MW. 
Albany » 


eo OK Rk Ok KK Re KK OK OK 


LEE EEE EERE EE EEEE EER EEE EEE EEE ERE HEE KEKE KRKKEKREE EERE EKEREREE 


FROGRAM UNIVERSALCOPY 3 
($1- += 5 


CONST , 
buflen = 286723 
numblocks = 363 


(edge 


by te a Oviedo 


VAR 
tovol,. fromvol: INTEGER: 


UNIVERSAL 16 SECTOR DISKETTE COPY FROGRAM 
Copies any standard Anple 16 sectored Pascal, Fortran, or DOS 
diskette 
by 


Alien We Todd 
Todd Microcomputer Consultants 


Gibson Hill Rd. 
Oregon 77321 


(303) 926-2986 


2osclear, #olnciear, home: PACKED ARRAYCO,,14 OF CHAR; 


toname,. Tromname: strings 
chi: CHARS: 


PROCEDURE agetcertinfos 
ere 


iTerminal Independant Screen 1/03 


bitorbyte = FACKED RECORD CASE BOOLEAN OF 


true: (bbyte: 
false: (bite 


END: 
syscomrec = PACKED ARRAYLO, 
Ssyscomotr = *syscomrec;: 


VAR 
Ssyscom: syscomotr: 


trix: RECORD CASE BOOLEAN OF 


Byte): 
PACKED ARRAYDO,,.131] OF BOOLEAN): 


»51i] OF CHAR; 


false: Caddress: INTEGER): 


true? 
ENT: 
prefixed: hbitorbyte: 
leadin: CHAR: 


BECIN 
trix,address:= 246: trPascal 
SYScomr= trix. oointer’s 
leacdin:= syscom*lé2]: 
woOschearlli:= syscom*Cé4]): 
eoinclie@artli:= syscom*léosd¢; 
homellij:= syscom*lési: 
WITH pretixed DQ 

BEGIN 


(pointer: *6s 


yscomotr): 


system pointer to svscom (#F8&) 3 


% 
% 
% 
+ 
% 
* 
% 
% 
+ 
* 
% 
ie 
% 
#S 


END: 
(aetertinfos 


FUNCTION bacios: 


ENT: 


VAR 


Llocode: 


BEGIN 


1OcoOde:= 
hbadio:r= 
IF iocode > 


bbhyte:= ord(syscom*(l721)3 


IF bitlé6) 


THEN homelOJ:= tleadin 


ELSE homelOJ:= chr (0); 


IF bitt3i 
THEN e#osclearlOl]:= 
ELSE eosclearlOj:= 
bitC2] 
THEN eo0lnclearlOd:= 


IF 


leadin 
chin (OQ) 3 


leadin 


ELSE eotnclearlOlj:= chr (od): 


twiths 


BOOLEAN: 


O.+163 


IORESULT: 
false; 


QO THEN 


BEGIN 


badiozr= 
Wr. ted; 
write (€° 1/0 ERROR: ©.° 2% 
CASE iocode OF 


trues 


{I/O error routine? 


writein (’ Bad Biock, Parity Read Error’): 


Tlileqal 


(‘Undetined Hardware Error’ ); 


is no 
(‘Lost Fite, File is no 
lileaqat 


Unit 


No such vol ure 


On 


Operation’ )¢s 


longer on 
longer 
File Name’ ): 
Insufficient 


in 


Space’ )3 


line’ )¢s 


END: 
tBadias 


END: 


(*‘Fiie not Closed, Attemot 


No such file on volume’ 5 


to open an open 


bine’ )3 
Directory’ )s 


file’) 


Attemot to access a closed file’): 


Error 


in reading real 
(“Ring Buffer Overflow’); 


Ls 

2: writein (’Bad Unit Number’); 

St writein (’Bad Mode, 

$F > writen 

22 writein (’ Last Unit, 

6: writen 

73 writeln (¢’Bad Titie,. 

8: writein (’No Room on Gisk, 

9: writeln (No Unit, 

10: writein (’No File, 

Li: writelin (’ Duplicate File’): 

l2: writein 

13: writeln (’Not Open, 

L4: writein (’ Bad Format, 

13: writeldn 

16: writein (’Write Frotected’ );3 
END: tCases> 


Wil teins 


writeln (’PRESS (SFACEBAR) TO CONTINUE’); 


read (Keyhboard,ch) 3 
C242 


PROCEDURE aborts: 


BEGIN 


uty Lt 
qotoxy 
writen 


exX1T 
ENT: 


PROCEDURE copy: 


(home .,e0sc lear); 
(OQ $ 10) : 

(’ Universal] 
(program) 3 


tabort: 


Copy Frogram Abortecdserse: 


19 


¢ ¢ @ @ 


é 


} = 


a4 


Or 


(copies diskette with checking for bad blocks: 


inteaqer’ )s 


% 
be 


VAR 
buffer: PACKED ARRAY(CO..buflenld OF byte; 
bnum, base, index, i, badnum: INTEGERS 


REGIN 
hnum: = O8 
badnums:= O}; 
GOTMLY: (OV152 s 
write (’Copying’ )>5 
KEPEAT 
Index: = OF 
base:= pnurms 
REFEAT 
unitread (fromvol ,buf ferlindex],312,bnum) $3 
IF 10result = G 


THEN write (7.7%) foooed blocks 
SUSE 
BEGIN {bad block, zero it on copy diskettes 


write cl oC , Rams” B72 
FOR i:= index TO index + 311 DO bufferlild:= O8 
hadnum: = badnume+l; 
END: 
Drum? = brnunm + 13 
index:= index + Siz; 
UNTIL ¢(bnum > 279) OR Chnum MOD numblocks = ©); 
unitwurite Ctovol ,buffer,buflen,base); 
IF badio THEN aborts: 
UNTIL: brnum: > 279% 
gotoxy (0,20); 
writein Cfromname,’ ~----->) %,;,toname)s 
uPitein Cbadnum.,’ Bad Blocks Encountered?’ ); 
END: tcopys 


FROCEDURE copvyfast; {tcopies diskette quickly without error checking; 


VAR 
buffers PACKED ARKAYLO,..buflend OF byte; 
bnum: INTEGER: 


BEGIN 
num: = O¢ 
REPEAT 
QoOtoOkVv: (0,05) 5 
write (eoincliear,’ Reading blocks “,bnum,’ to ‘’,s,bnum + numblocks 
unitread Cfromvol ,buffer.buflen,sbnum) ; 
IF badio THEN aborts 
OQOtOry . COL RoFS 
write Ceolnclie@ar,’ Writing blocks ’ ,bnum,’ to %,bnum + numblocks 
uniturite Ctovol,buffer,buf len, bnum) : 
IF badio THEN aborts 
bnumt = bnum + numbiockss 
UNTIL: byte. > 27 9s 
OOTOeY  Cohy2ORs 
writein Cfromnamne,% --~---- > * ,toname): 
END: tcopyfasts 


FUNCTION qetdirectory (dunits INTEGER; VAR vname: string): BOOLEAN; 


tcheck for formatted diskette, get diskette type, and volume names 


> 


20 


TYPE 
Vid = stringl7]; 
tid = stringl1lSi; 
daterec = PACKED RECORD 
Migs ee ee 
day: bares: B 
Year> O14 993 


ENDS 
filekKind = (vol, badfile, code, text, info, data, graf, foto, secure)s 
direntry = RECORD 
dfirstblock: INTEGERS: 
diastblock: INTEGER; 
CASE dfkind: filekind OF 
YOl, Secure: (dvids: Vids: 
deaovbik: INTEGERS: 
adfitenum: INTEGER: 
Clcturmnny : INTEGER; 
diastboot: daterec); 
badfile, code, text, info, data, graf, foto: 
Cdtics: tid; 
dlastbyte: 1..3123 
daccess: daterec ) 
ENL: 
directory = ARRAY(CO..77] OF direntrys 


VAR | 
dirotrs ‘directory; 
heap: “INTEGERS 
S$: strings 


BEGIN 
getdirectory:= fails 
stm (dunit,s)3 
mark (heao): 
new Cairptr); 
unitread (dunit,dirptr’ ,sizeofldirectory),2)3 tdirectory begins on block 23 
IF NOT badio 
THEN WITH diroptr’*lOodj DO 
BEGIN 
IF (dfkKind IN Lvol,»secured) AND (deovb)kK=280) 
THEN vname:= dvid 
ELSE vname:= concat (’DOS VOLUME #7’ ,s); 
getdirectoryv:= true: , 
END: Cwith> 
me (heap) 3 
directory 


iT: 


a 
oy 


BEGIN <tUniversal Copy: 
qetcrtintos 
REPEAT 7 
write Chome,eoscc lear) § 
writein (’Universal 16 Sector Diskette Copy Frogram’ )3 
REPEAT 
gotoxy (0,5)3 
write (eosclear,’ Copy Which Disk Volume? 7); 
readin (Cfromvol)s: 
UNTIL (NOT bacdio) AND (tromvol IN (€4,5,9,.-i2])3 
REF EAT 
qotoxy (0,7); 


al 


write (eosclear,.’ To Which Disk Volume?’ “)3 


readin (tovolds 


UNTIL (NOT bacio) AND Ctovol IN €4,2,9..124) AND Cfromvol<>tovol)s: 
IF NOT getdirectory (tovol,toname) THEN abort: 
IF NOT getdirectory (fromvol,fromname) THEN abort; 


qgotoxyv (0,10); 


urite (‘Destroy ‘’,toname,’ 7 4) 


read (ch); 
IF Cen IN CYS vy eS THEN 
BEGIN 
HOTOKY LO Le) s 


write (’Check for bad diskette bliocks? ‘)% 


read (ch); 
IF GRIN ee ae ye 
THEN copy 
ELSE copyfast; 
END: 
GOTrery Opes): 
write (’More to Copy?’ 723 
read (ch); 
CNEL NOT OSCR SN Ly eye are 
write (home,eo0sc lear); 
qgoataoxy tO,1loO73 


uritein (’Universal Copy Ende@clheeeererees 
END. 





STRING SEARCH UTILITY 


Several readers have written 
in requesting help with such 
programs as "File Cabinet" 


particularly in the area of string 
matching. These requests have 
given us an idea for a useful 
utility that can be inserted into 
any data baSe application that 
involves matching a search string 
with items in the data baSe. This 
month we present such ae utility 
which can be added as a Subroutine 
to such programs as "File Cabinet" 
to increase their usefulness. 


It we think about what we 
would iike. ih «such a utility 
first, then we can define what the 


aa 


a 
7% 


Subroutine must do. Here isSa 
list of desirable objectives. 
REQUIREMENTS 


1. Search target string for the 
object string. 


2. Continue search for each 
occourance of the object 
string in the target 

string. 


3s: Allow: “don't gare” positions 
in 
the object string. 


4. Be flexable enough = and 
Straight 
forward SO as to be 
adaptable 


to a variety of uses. 

Now that we have identified 
several requirements, we must 
translate those requirements into 
more specific ‘instructions that 
will help us figure out how to 
write the program. 


The first: requirement simply 
Says given a target string, find 
the first occourance of the object 


string. This impiies that we must JLIST 240,290 
search the target string from 
beginning to end to see if the 


first letter of our object string 240 ZI = 1:Z2W = 1: REM COUNTERS 
is contained anywhere in the 250 NOGO = 1: REM FLAG 
target string. If not, then their 260 HOME : HTAB 3: INVERSE : PRINT. 
Can be no match. If if ts,.. then "STRING SEARCH UTILITY": NORMAL 
their might be a match if the ¢ ¥VTAR 3 
remianing letters agree. Here is 270 PRINT "SEARCH STRING: ";: INVERSE 
the first part of our program. To : PRINT OBJ$: NORMAL : VTAB 
use, we Simply let TARGTS= "string 8 
to be searched" and the 
OBJ$S="sString to search for" prior Here we simply print the 
to calling this subroutine. target and object strings and 
set-up our string pointers ZI _ and 
pe Onaee ZW. The NOGO variable is used to 
10 REM MAIN PROGRAM pass back information on whether 
Or not a match has been found. Now 
20 TARGTS = "NOW IS THE TIME FOR we are ready to being our search. 


ALL GOOD MEN TO COME TO THEI 
R COUNTRY'S AID!" 
30 OBJS$ = mpen 
40  GosuB 100 LLIST. 300,339 
50 END : REM OF MAIN 


300 REM 
100 REM 
STRING SEARCH UTILITY seculicke tg NRE 
110 REM Pe Ate ce oles MEAG 310 FOR ZZ = 1 TO LEN (TARGTS) 
320 IF MIDS (OBJ$,1,1) = MID$ 
APPLE SHOPPE VOL1 NO.8 (TARGT$,ZZ,1) THEN’ GOSUB 50 
(C) COMPU-TUTOR 1980 0 
200 REM 330 IF NOGO = 0 THEN NOGO = 1: GOTO 
BEGIN MAIN; 340 
339. “NEXT 22 
210 REM 338 GOTO 390 
VAR; 
220 REM The: key: to our search is: line 
TARGTS=STRING TO BE 310 and. 320.: Here we set up a iioop 
SEARCHED. Lor thes ventire:\ Lengta:: of the 
target string. Then we test each 
230 REM Character in the target string 
OBJS=MATCH STRING against the first character in the 
'21=DON'T CARE. object string. If we have a match 
then we GOSUB 500 to see if the 
remaining Characters: watch, ois 
Lines 10 through 50 give an not, then we continue until the 
example of how the subroutine length of the target string is 
would be called from our main exhausted. Obviously if the first 
program. Note how the target and Character in the object string 
object strings are set-up and the never matches anything in the 
utility called in line 40. These target string, then there never 
lines would be adapted to the will be a match. We assume here 
program in which you are using the Ehat “the “<"dont't care® character 
Ret LI ey, The actual subroutine is never the first character in 
begins at line 100. Lets look at the object string. In line 338 we 
the first portion of the branch, to the exit portion at line 
Subroutine now. 390 where we return to the main 


program. Note that NOGO is 


23 


initialized to 1 so as to prevent 
branching in line 330 if we did 
not GOSUB 500. Often when writing 
a program it is easy to forget 
that the first time through a loop 
variables must be initialized 
properly to prevent triggering 
unwanted branching before the main 


event. Lets assume that in line 
320 we did branch to our’ search 
subroutine and as a result NOGO 


was reset to 0 indicating we have 


found out object string. 


JLIST 340,499 


340 REM 
MATCH FOUND 

350 PRINT : PRINT "STRING FOUND: 
":; PRINT : PRINT 

360 PRINT MID$ (TARGTS,1,(22Z ie 
1)); 

370 INVERSE : PRINT MID$ (TARGT 
$,Z2Z2, LEN (OBJ$)); 

380 NORMAL : PRINT MIDS (TARGTS 
,ZZ2 + LEN (OBJ$), LEN (TARG 
TS) - (ZZ + LEN (OBJ$))) 

362: BPRINT..3.eRies PRESS KEY 
TO CONT. «a fs GET KEYS: PRINT 

385 NEXT 2Z 


390° PRINT. PRINT © THAT'S AL 
L FOLKS! ": RETURN 


395: END«$< REM OF UTILITY 


Line 3 80 identifies the 
portion of the target string that 
matched the object string. This 


String could be saved in another 
return variable if desired to 
return: £€°. to: the! mains: program, 


Line 382 simply allows us to pause 
before continuing our search for 
any other occourances of our 
object String in the target 
string. This line could be 
removed when using the utility in 
an on-going program. Line 390 
then returns us to the main 
program. Now finally we come _ to 
the key seach subroutine that must 
determine if the remaining object 
String including the "don't care" 
characters match up with the 
initial match position in the 
target string as pointed to by the 
ZZ pointer. Note the use of the 


a4 


530 IF MID$ (OBJ$,ZW,1) < > 


Second ZW pointer that tracks’ the 
object string length. 


JLIST 500,600 


500 REM 


CHECK IF MATCH 


510 FOR ZW = 1 TO LEN (OBJ$) 
520 IF MID$ (OBJ$,ZW,1) = "#" THEN 


5 40 

MIDS$ 
(TARGTS$S,Z2Z + ZW - 1,1) THEN 
NOGO = 1: RETURN 


540 NEXT ZW 
550 NOGO = 0: RETURN 


] PR#0 


TO handle the "don't care" 
positions, we Simply skip over any 
Character in the target string at 
those positions. as shown in line 
520. Line 530 then determines if 
the next character in the object 
string matches with the 
corresponding character in the 
target. string... If (so,  enen « we 
continue with line 540 and NEXT 
ZW. If not, then our match has 
failed at that point and our NOGO 
Flag is set to 1  indieatiag 2 
failure and we return to line 330. 


Note that line 550 is necessary to 
handle the case where we reach the 
end of the object string without 
finding a match. Little 
"got-cha's" like that is why 95% 
of any program is quickly written, 
while the remaining 5% of the 
program often takes as long as the 
first 95%. Because debugging and 
identifying all possible program 
conditions takes a lot of time and 
careful testing. 


Type this utility in and try 
it a few times just the way it is 
written. Once you understand how 
it works, then you can insert it 
into your own programs for finding 
data in record fields or any other 
application where matching 1s 
necessary. If you have an idea for 
the "STRING MAGIC" WORKSHOP please 


Send it to the Apple Shoppe. 
Until next time, try some more 
STRING MAGIC in your BASIC 
programs! 
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Hires graphics - Crystalsonics - sophistication...Crystal is what is happening in fantasy and science fiction games! Tired of text games and wordy 
manuals? Have you been looking for games which are different each time you play? We offer you the results of three years of testing and research; what 
we believe to be the finest games available anywhere for the Apple Computer. 


HOUSE OF USHER — Wander through a haunted house. Rooms and 
scenery in 15 color lo-res graphics. We offer a $100.00 prize to the first 
person to solve the mystery. Over 200 monsters, objects, and perils. 
$24.95 


GALACTIC QUEST — Crystalsonics - hires graphics - the ultimate space 
adventure. Vegan warships attack and fire in real time simulation. Land 
on and trade with over 64 star systems in 3 galaxies. Allow 6-12 hours for 
play. $24.95 


SUMER — Travel back through time to ancient Sumeria in the middle 
east. You are given 10 years as king to restore this kingdom to prosperi- 
_ ty. Plant, war, consult the astrologers - very hard to beat! $19.95 


LASAR WARS — Crystalsonics - hires graphics - protect the planet earth 
from a full scale alien invasion. Over three types of invading craft and 
hundreds of approach simulations. The game speaks foritself. $29.95 


WORLD WAR lili -— Crystalsonics - hires graphics - for you war game 
freaks, this is it! Iran and Iraq - nuclear missiles - hires 3 sceeen bat- 
tlefield - demolition squads - tanks - strategy. Custom designed for two 
arm chair generals. Save the worid from nuclear holocaust! $29.95 


BENEATH THE PYRAMID — Crystalsonics - hires graphics - brand new! 
Explore the pyramids and miles of winding secret tunnels beneath them. 
Enter at the Sphinx and find the hidden treasure chamber. All in hires 
with very aggressive monsters and many many perils. To win you must 
find the golden cat and your way out!!! $29.95 


for Apple 48K with disc 
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